home *** CD-ROM | disk | FTP | other *** search
/ Chip 2001 December / Chip_2001-12_cd1.bin / zkuste / tuning / download / xteq / setup.exe / {app} / plugins / XQ Windows Key 1.xpl < prev    next >
Text File  |  2001-04-13  |  2KB  |  57 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 6.0"
  2. "TYPE"="6"
  3. "COUNT"="1"
  4. "UIPATH 1"="Hardware\Keyboard"
  5. "NAME"="Enable Windows Keys"
  6. "LANGUAGE"="VBScript"
  7. "TEXT 1"="Enable Windows Keys"
  8. "DESCRIPTION 1"="If you have a keyboard with the two Windows keys, you can use these to access common Windows functions more quickly."
  9. "DESCRIPTION 2"="If you want, you can disable these keys, by clearing the box above."
  10. "COMMENT 1"="Thanks to CptSiskoX for the plug-in suggestion."
  11. "VERSION"="1.13"
  12. "AUTHOR"="Neil R. Turner and CptSiskoX (Xteq Systems)"
  13. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved."
  14. "OSVERSION"="111111"
  15. "CONTACTURL"="http://www.128moorlane.freeserve.co.uk/"
  16.  
  17. 'Declaration of some constants
  18. sP="HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoWinKeys"
  19.  
  20. 'Called when the Plugin is started
  21. SUB Plugin_Initialize
  22.  s=RegValueExists(sP)
  23.  if s=true then
  24.   f=RegReadValue(sP)
  25.   if f=0 then
  26.    Call SetUIElement(1,true)
  27.   else
  28.    Call SetUIElement(1,false)
  29.   end if
  30.  else
  31.   Call SetUIElement(1,true)
  32.  end if
  33. END SUB
  34.  
  35. 'Called when the Plugin should validate the Data the user has entered
  36. SUB Plugin_CheckData(ElementIndex)
  37. END SUB
  38.  
  39. 'Called when the Plugin should apply the changes
  40. SUB Plugin_Apply(ElementIndex,ElementSubIndex)
  41.  h=GetUIElement(1)
  42.  if h=true then
  43.   g=RegValueExists(sP)
  44.   if g=true then
  45.    Call RegWriteValue(sP,0,2)
  46.   end if
  47.  else
  48.   Call RegWriteValue(sP,1,2)
  49.  end if
  50.  
  51.  Call Restart()
  52. END SUB
  53.  
  54. 'Called when the Plugin is about to be removed from memory
  55. SUB Plugin_Terminate
  56. END SUB
  57.